home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 53 / PC Actual CD 53.iso / intro.dxr / scripts_17_ClickEnRuta.ls < prev    next >
Encoding:
Text File  |  2001-01-15  |  455 b   |  25 lines
  1. global gEsWeb
  2.  
  3. on mouseUp me
  4.   s = the moviePath & member("Ruta").text
  5.   if gEsWeb then
  6.     gotoNetPage(s)
  7.   else
  8.     if s <> EMPTY then
  9.       r = s
  10.       Dir = 1
  11.       repeat while (the last char in r <> "\") and (r <> EMPTY)
  12.         delete char -30000 of r
  13.         Dir = 0
  14.       end repeat
  15.       if Dir then
  16.         open(s, "explorer.exe")
  17.       else
  18.         var = baSetCurrentDir(r)
  19.         put var
  20.         open(s)
  21.       end if
  22.     end if
  23.   end if
  24. end
  25.